      subroutine gethru(hrufile_name)

      !! open hru file based on holding poind in scenario design

      use parm

      character (len=*) ::  hrufile_name
      character (len=Len(hrufile_name)) ::  temp_name
      logical :: alive
      logical :: searcharray

      temp_name = hrufile_name

        !!see if current holding pond/point source is selected in
        !!scenario.
        !!If yes, read HRU file in folder Holding_pond/pond_with. If
        !!the file is not in that folder, go to main folder
        !!If no, read HRU file in folder Holding_pond/pond_without.If
        !!the file is not in that folder, go to main folder
        !!2012-10-16
            if(webs_holding_pond_hru_num > 0) then
                if(searcharray(webs_holding_pond_hru_num,
     &                               webs_holding_pond_hru,ihru)) then
                    temp_name = "holding_pond/pond_with/"//
     &                          temp_name(:len_trim(temp_name))
                else
                    temp_name = "holding_pond/pond_without/"//
     &                          temp_name(:len_trim(temp_name))
                end if
            else if(webs_base == 1) then !!base is conventional
                    temp_name = "holding_pond/pond_without/"//
     &                          temp_name(:len_trim(temp_name))
            end if

          inquire(file=temp_name,exist=alive)

          if(alive) then
            hrufile_name = temp_name
!          else
!            !!debug informatin
!            if(output_test_information) then
!                write(2011,*) "Warning: Can't find " //
!     &                                   temp_name
!            end if
          end if

          !!debug information
          if(output_test_information) then
            write(2011,*) hrufile_name
          end if

          return
      end
